home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / GOSUB.BAS < prev    next >
BASIC Source File  |  1996-02-11  |  591b  |  21 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *GOSUB_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 5 cls 
  7. 10 gosub 1000 :print A$
  8. 20 gosub 2000 :print A$
  9. 30 gosub 3000 :print A$
  10. 40 gosub 4000 :print A$
  11. 45 gosub 5000 :print A$
  12. 50 end 
  13. 1000 A$="Subroutine at line 1000":return 
  14. 2000 A$="Subroutine at line 2000":return 
  15. 3000 A$="Subroutine at line 3000":return 
  16. 4000 gosub 10000 :A$=A$+" and at line 4000":return 
  17. 5000 gosub 20000 :gosub 30000 :A$=A$+"Sub at line 5000":return 
  18. 10000 A$="Subroutine at line 10000":return 
  19. 20000 A$="Sub at line 20000...":return 
  20. 30000 A$=A$+"Sub at line 30000...":return 
  21.